MacWorld 1999 January - Disc 2/Macworld (1999-01) (Disk 2).dmg/Serious Demos/Symbolic Composer 4.2/Environment/System/MRAC/Lengths/Modify/l-syncope-section

Lisp/Scheme | 1998-08-11 | 1KB | 49 lines

l-syncope-section seed count divide length section pattern

This function is identical in operation to l-syncope except for the ability to handle syncope processing across sections or sublists within a list.

(setq lengths (qlength '((8-210) (16-102) (8-1 12-110))))
=> ((1/4 1/8 -1/8) (1/16 -1/16 1/8) (1/8 1/12 1/12 -1/12))

(l-syncope-section .23 1 4 'min nil '(2) lengths)
=> ((1/4 1/8 -1/8)
    (1/16 -1/16 1/8)
    (1/8 1/48 1/16 1/12 -1/12))

(l-syncope-section .23 1 4 'min nil '(0 2) lengths)
=> ((1/4 1/32 3/32 -1/8)
    (1/16 -1/16 1/8)
    (1/8 1/16 1/48 1/12 -1/12))

(l-syncope-section .23 1 4 'min '1/12 '((0 2)) lengths)
=> ((1/4 1/32 3/32 -1/8)
    (1/64 3/64 -1/16 1/8)
    (1/32 3/32 1/12 1/12 -1/12))

(l-syncope-section nil '(1 2) 4 nil nil '((0 0) (2 2)) lengths)
=> ((1/4 3/32 1/32 -1/8)
    (1/16 -1/16 1/8)
    (3/32 1/32 1/48 1/16 1/12 -1/12))
=> ...

(l-syncope-section nil '(1 1) '(4 4) '(max min) nil '(0 2) lengths)
=> ((1/16 3/16 1/8 -1/8)
    (1/16 -1/16 1/8)
    (1/8 1/16 1/48 1/12 -1/12))
=> ...

(l-syncope-section .46 '(1 1) '(4 4) '(1/8 1/16) nil '(0 1) lengths)
=> ((1/4 3/32 1/32 -1/8)
    (1/64 3/64 -1/16 1/8)
    (1/8 1/12 1/12 -1/12))

(l-syncope-section nil '(1 1) '(4 4) '(max min) nil '(0 0) lengths)
=> ((3/16 1/64 3/64 1/8 -1/8)
    (1/16 -1/16 1/8)
    (1/8 1/12 1/12 -1/12))

(l-syncope-section nil '(1 1) '(4 4) '(max min) '1/16 '(0 0 2) lengths)
=> ((1/16 3/16 1/32 3/32 -1/8)
    (1/16 -1/16 1/8)
    (3/32 1/32 1/12 1/12 -1/12))